home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / glisp.zoo / TAK.GL < prev    next >
Lisp/Scheme  |  1990-05-30  |  175b  |  9 lines
  1. "Takkeuchi"
  2. (defun tak (x y z)
  3.   (if (not (< y x)) z
  4.     (tak (tak (- x 1) y z)
  5.          (tak (- y 1) z x)
  6.          (tak (- z 1) x y))))
  7. "(tak 18 12 6)"
  8. (tak 18 12 6)
  9.